home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO6.DMS / in.adf / Procedures / Screen_FX / _Wipe3.AMOS / _Wipe3.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-29  |  1.1 KB  |  36 lines
  1. '******************************************************* 
  2. '*                                                     * 
  3. '* AMOS Professional Procedure Library                 * 
  4. '*                                                     * 
  5. '* Procedure: Screen wipe 3                            * 
  6. '*                                                     * 
  7. '*    Author: N.P. Hayman-Joyce                        * 
  8. '*                                                     * 
  9. '******************************************************* 
  10. WIPE[2,0]
  11. Procedure WIPE[_COLOUR,_COLOUR2]
  12.    Rem *** Use paramter _colour for the colour! 
  13.    Ink _COLOUR
  14.    Rem *** Set variables
  15.    X1=0
  16.    Y1=0
  17.    Rem *** Find how wide the screen is and how deep 
  18.    X2=Screen Width
  19.    Y2=Screen Height
  20.    Rem *** Keep repeating until its cleared to the centre of the screen 
  21.    Repeat 
  22.       Box X1,Y1 To X2,Y2
  23.       X1=X1+1
  24.       X2=X2-1
  25.       Y1=Y1+1
  26.       Y2=Y2-1
  27.    Until X1=160 or Y2=99
  28.    Ink _COLOUR2
  29.    Repeat 
  30.       Box X1,Y1 To X2,Y2
  31.       X1=X1-1
  32.       X2=X2+1
  33.       Y1=Y1-1
  34.       Y2=Y2+1
  35.    Until X1=-1
  36. End Proc